2) Odrediti najveci element u matrici i njegovu poziciju.




Sub zad2()
Dim a(100, 100), i As Long, j As Long, max As Double, imax As Long, jmax As Long
m = Cells(1, 1)
n = Cells(1, 2)
For i = 1 To m
 For j = 1 To n
 a(i, j) = Cells(i + 1, j)
 Next
 Next
max = a(1, 1)
imax = 1
jmax = 1
For i = 1 To m
 For j = 1 To n
 If a(i, j) > max Then
 max = a(i, j)
 imax = i
 jmax = j
 End If
 Next
 Next
 Cells(1, 3) = max
 ActiveWorkbook.ActiveSheet.Range(Cells(imax + 1, jmax), Cells(imax + 1, jmax)).Interior.Pattern = xlPatternCrissCross
 End Sub

